﻿<%@ Page Language="vb" codepage="65001" aspCompat="True" StylesheetTheme="" theme=""%>

<%
REM 单编辑器调用
Response.Buffer=true
Response.Expires=0
Response.CacheControl="no-cache"
'Response.CodePage=65001	'(only support in window2003 IIS6 server)
Response.charset="utf-8"

dim RNDCode,tempStr
dim mmArt As New WebNote.WebNote()
	RNDCode = mmArt.Prepare()
	tempStr = mmArt.LoadFile(Server.mappath("Editor.htm"))
	tempStr=replace(tempStr,"$rndcode",rndcode,1,1)
	Response.Write (tempStr)
mmArt = Nothing

%>